﻿Imports DNP.GestionComercial.BE
Imports DNP.GestionComercial.DAL
Public Class LineaProductoBL
    Public Function listarLinea(ByVal pCodigo As String) As RespuestaBE
        Dim odlObjeto As New LineaProductoDAL
        Return odlObjeto.ListarLineas(pCodigo)
    End Function
    Public Function listarSubLinea(ByVal pCodigo As Integer) As RespuestaBE
        Dim odlObjeto As New LineaProductoDAL
        Return odlObjeto.ListarSubLineas(pCodigo)
    End Function
End Class
